home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / CREDITS.DCR / behaviors_6_sing.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  349 b   |  24 lines
  1. property mySong
  2.  
  3. on mouseUp me
  4.   startSinging(me)
  5. end
  6.  
  7. on startSinging me
  8.   if not soundBusy(1) then
  9.     puppetSound(mySong)
  10.   end if
  11. end
  12.  
  13. on beginSprite me
  14.   startSinging(me)
  15. end
  16.  
  17. on getBehaviorDescription
  18.   return "Singing behavior."
  19. end
  20.  
  21. on getPropertyDescriptionList
  22.   return [#mySong: [#comment: "Song:", #format: #sound, #default: EMPTY]]
  23. end
  24.